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* TITLE: B5500/BS700 MAHK XI V SYSTEM RELEASE 

* FILE ID « SYMBOL/GUARD IaPE ID! S Y MtiOL 2/F ILEOOO 

* THIS MftTFHU l lh PHIIPH ILTA H Y I f HU KhflLnhS r.r.HPnft AT T p fl 

* 
* 



*; 

* 



AND IS NOT TO BE REPRODUCED* USED* OR DISCLOSED 
EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON 
WRlTTFN AUTHORIZATION OF TH£ PaTFNT niVTSTQN OF 
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ooocoon 
oouucoi? 



* 



* BURROUGHS tORPORArlONt DETROIT* MICHIGAN 48232 

* CQPYRlfiHT LCJ 1971 > lvf? RUHKnUfthS r.URPCR aT THN 



00000013 
OOOOOOH 
00000015 



* 



* AA320206 AA386657 
BEGIN REAL COMMON; 
At PHA FH FNAMF.ItSf Kf> AMf f 



0G0C0016 
00000017 

oooopo rs 



*; 



real i*j*k*t*x*p; 

save array alo«30]#bco;30J; 

LA BE L A NOTHER , AR , tiUl .Ii_ „ _ 



00000019 

oo-oodioo 

nnoon?nn 



FILE TWX 14(2*10); 



00000300 
00000400 

gouiiosoo 



DEFINE MARK» 
REAL STP* 



»«•♦•*; 



ALPHA ARRAY STUCK C ; 63* ? 3 1 1 ; 
REAL JUNK* 
DEFINE STACK T STAC K llsS TUCK CCJUNK: 



00000600 
00000700 
00000800 



'3TACia).n71rtJ»JliNK .Cms 1.3*1 



00000900 

ooooiooo 
ooooUon 



PROCEDURE C0MCL*T*F1,F2,S2,S5,S6); 

VALUE L»T*Fi*f?.Sa*SS»SA; 

REAL L*T,Fl,F2*S2,S5*i>6; 
COMMUNICATEC-15); 



00001200 
00OO80Q0 



STREAM PROCEDURE FETCH tp* X, B ); VALUE Pi 
BEGIN LABEL EX*EL*L; 



00U0820Q 
00008300 
flUOtlMQO 



di»»b; ds>s8 lit "o 



J p.I*«Bj 0I.«-0I + 1* SnsP; 



00008500 
00008600 
00008700 



L»IF SC« " " THEN BEGIN 
IF SC s ALPHA THT\ 



SH»5J[ + 1* uU TO L E^O' 



els begin ds:»chr; if s>c s alpha then go to el; go to ex end; 

oh«di-i; dSs*lit «+"; ossschr; 
EXipi»st; sttaifl r. p; npex; nsiawDsi- ___ __ 



00008800 
00006900 
00009Q0Q 



end; 
real stream 



00009100 
00009200 
00009300 



PROCEDURE MKABscB); 3EG1 N gljsB; MkABSjbSI ENOi 



FORMAT QFN( M LOCK FILE NAME?'*)* 
QNOOCNEW OR OLD LOCK FILE?")* 
ORmiC-READ flNl Y MAMFS?*.. 



00009400 
00009500 
00009600 



QRWUC'VREAJ/WRITE NAME->?")* 
QVERBCAQD* DELETE* LIST* SAVE* 
ftDCN A MES TO BE D EL ET E D? w jr 



00010000 
00010100 
nnui02nn 



OH GUlT? M )* 



QTH( W THANK YOU»">* 
QOK(«QK«), 

QwHATf "WHAT?"). 



0CO1U3CO 
OOU10400 
Q001Q500. 



«5AV.E.DC"L0CK. FILE SAVED.")* 

QMU(A6,A1," NOT In LO^K KIlE"J,UM.PCa6,"/" j A1,a6, w NOT In 

9DuC"L0Ck Fur A L RFADY p* YHUR L-IbRARju G_tVi_Jli--AMlXbEJi- 



00010600 
00010700 
OOOlQflOQ 



Qxxxcxxx M )j 
procedure keadfm; 



O0U1O9O0 
LOCK FILE* "), OOOHOOO 
NAME . ")> 0001,1100 



BEGIN READCTWX*iO*A[*J), ACloJ: = S'|P; X:sP; END* 
PROCEDURE ADDER(RW); VALUE Rh* BOOLEAN Rw; 



00012900 
00013000 
00013100 



BEGIN LABEL Fl*F2*EXIT; 

readem; 

Fll FFTCH(X*X.R>; 



00013200 
00013300 
0Q01340Q 



00013500 
00013600 
00013700 
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F2* Tl=B[03J 

IF T , [6J<j] = MaHK 
IF T I, SS THEN 



THEN fin ro 

fio to n ; 



exit; 



FETCH(X#X*B); 

IF BC0J,C6i6] NFQ »/" THEN 
RFfiTM TF NHT RW TUfN T!»-Ti 



stack[k]:«t; 
kuk + i; 

STACK[K3i*"l?"i 



GO TO f2i 

end; 

FFTCHCXjXjB); 



IF..B.C0.3.,C6*6JsMARK 
IF B{03 LS3 THEN 
TtsT.C6t 363J 



THEN GO TU EXIT; 
GO TU fi; 



IF RW THEN T,C5H3»»1J 
T t t4U3»*i; 

STACK[K]t»TJ 



STACKCK+llJ'BCOl; 
STACKIK + 2] :*"l?"; 

KisK+2J 



GO TO fi; 
EXIT* 

— tm-i 



BOOLEAN PROCEDURE START; 
BEGIN LAB-EL SRtEXIT; 



STPIsREAKNOT FALSER 
PiaMKABS(A); 



write(twxcstop]*onooj; 
sr'readem; 

FETCHCX.f XfB)F 



IF BCOls^OLD " THEN 

IF 8C03** , NEW " THEN 

RFSIN START:«TRUFi Gfl 



GO TO exit; 
T3 exit emj; 



«RlTECTWXCSTOP]»QhHAT) j 

go to sr; 

EXlTl 



end; 

PROCEDURE SAVFR; 



BEGIN FILE OUT DS ClSK SERlALtHK 
FILL DS WITH F I LEN AME, U3ERNAME; 
I >sj>?K ;gQ; 



UIV 29*1JC1»30#SAVE 10); 



DO BEGIN 
DO BEGIN Tl*STAC«[J3; Jl*J+l 

STACKIK3>»Ti — -■■'"■.• ■■■-.' 



END UNTIL T NE« **?"; 



KiaK+i; 

aciubt; 
n = i + i ; 



IF 1*30 THEN 
BEGIN IF T,C3I33 NEQ THEN 

BFGIN .Jt«>H KIsK-i; A£29]tg"?« FNP; 

WRITE(DS*30,At*3)i 

u«o; 

end; 



eno until t«m?"; 
k«»k»i; 

WftTTCCDS, 30*AC«3>; 
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00014900 



00015000 

00015100 
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00015300 
0Q01540Q 



00015500 
00015600 

0157 



00U15600 

00015900 

- 00016000 
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00020100 
QQ0 2 Q2 Q Q 



00020300 
00020400 
00Q2Q410 



00020500 
000^0600 
00020700 



00020800 
00020900 
QQ021QQQ 



00021100 
00021200 

Q02 13QQ 



00021400 
00022000 

QQQ 22 1Q0 



00022200 
00022300 
000 2 2400 



00022500 
00022600 
00022700 



00022800 
00022900 
02 3 00 
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00023200 
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00023800 
QO 23 810 
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LncK(DS); 

C0MC0#7,-FILENAME#USERnamE»-U3ERNAmE*O,O); 
HRITF(THK»OSAVrnj r __ 



END I 

prqce q urf fil e mmer ; 



BEGIN. LABEL FR; 
.W.RITE(TWXC.STOP]*QFN)> 
FR»RFAnFM? . 



FETCH(X#X»B); 
IF BC03 LSS THEN 
BEfiTN WRTTFfTWXtfiHHAT); 



FlLENAMEJsBCOH" 

end; 



"[4i.S42.l6 3i 



fin TQ fk end; 



procedure new; 
begin label dj 

fti f TM m n T s* 



JUL 



kiso; 

stack[qu = m?"; 
fti enamerj 



sfriai (i>^n>r 



FILL OL WITH FILENAME, oSERNAMt; 

SEARCH(DL>AC*3); 

TF ACQ? NFP -1 THEN — 



BEGIN 

end; 



wRITECTWX/GCU); GO TO L.NU; 



proceoure old; 

BEGIN FILE IN OL 
1 ARF1 > iFXITJ 



DISK SERIAL (1*30); 



LI 



fiien.am.er; 

FILL DL WITH Fl LENAK^USERNaME; 

T:=K}ff)f 1 

READ(DL/30#B[*3); 



FOR I«*0 STEP I 
BFfiTN T<«Rri3i 



UNTIL 29 00 



IF T NLQ "?" THEN 

BEGIN STAC^CK] SsTi K*=K+1 
TF T«"l?" THFN GP Tfl ExTTJ 



END' 



end; 

GO TO 
FXlT« 



l; 



k»*k-i; 
end; 



PROCEDURE delete; 

BEGIN LABEL D1>D2>EXIT; 
BOOLEAN G; 



FETCHCXf X»B3i 
IF BC03,L6|63sMARK THEN 
RFGIN WRITEtTHX,Cn)i 



readem; 

oil fetch(x#x*b); 

fnd; 



02* T»«BCO j; 

gjstrue; 

IF T.[6!6] 3 MARK 



THFN GH TQ EXIT; 



if t lss then go to du 
fetch(x#x#b); 
MlMMjMJM neu *v" THFN 



00023900 
00023910 

oour4non 



00024J00 
00025000 
00025100 



00025200 
00025300 
Q0U?5tt0Q 



00025500 
00025600 
00025700 



000258.00 
00025900 
0002 6 00 



00026100 
00026200 
00026210 



00026300 
00026400 

QQ026500 



00026503 
00026505 

00026510 



00026520 
00026600 
02 6 7 00 



00026800 
00026900 
00027000 



00027100 
00027200 

00027300 



00027400 

00027500 
00027rtOn 



00027700 
00027800 
QQ 279Q 



00028000 
00028100 
ono^fl?nn 



00028300 
00028400 
00030000 



00030100 
00030200 
00030300 



00030400 
00030500 
0003060Q 



00030700 
00030800 

00030900 



00031000 
00031100 
Q0031P00 



00031300 
00031400 
00031500 
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BEGIN 

FOR 1 1 -0 STEP 1 U.'JTIL K Du 
BEGIN IF STArKCM.MH] NVQ 



if a^sc stackl 1 3 }*t then 

begin 5tackciji*"?"; gssfalse 
fn q; 



THEN I>=I +1 E L 3F 



end; 



if c then 
go to 02; 

EN I 3J 



WKITHTWX#QMu#T.[6»3t>J,73; 



FCTCH(X*X*B); 

IF 8C03,C6»63="MARK 

IF BC03 1 SS Q THEN 



THEN GO TO EXIT; 
GO TO Oli 



FOR I»-0 STEP 1 UNTIL K 00 
BEGIN IF STACK[I3.t3*33 NEQ ThtN 
IF STACK[U.r6i4>]sT.l ft :36J THFN 



FNQ 8 



IF STACKCI*13"Bro3 THEN 
BEGIN 5TACKCl3t*STACKtI+l]Ss M ?' 



; GS*FAtSE enQ; 



IF 

GO 

EXIT; 



G 
TO 



THEN 

01; 



WRITE(TwX»QMP,r.C6»36J'BtCJ.t6«6J»bC0j); 



end; 
procedure lister; 



BEGIN STREAM PROCEDURE SQUISH(A)> 

begin uij=a; 
5C51i=a; sm»st + i; ds;-7 chr; aj^st; 



6(SH»SI-U IF 
DS|*40 LIT " "; 

-EJsLDJ 



SC NEQ 



THEN jump cut; dh»di-i>); 



FOR I»sO STEP I UNTIL K-l DO 
BEGIN A[0]:="( J "; ACIJ:-" 

TF STACKril NFU »?" TriF-M 



BEGIN 

IF STACKtI3.t3l3] = THEN 
BEGIN ArQ3.C12:<s3> g lF STACKtlJ LSS Q 



AC2]»*STACKC13; 
A C 3 3 »sA[43 H" 

END ELSF 



THEN "R" ELSE "H"/ 



BEGIN AC03.C12863 JslF 5TACHCI J. £5 1 1 J«l 
AEai!*" '^iSTACKr 13 f68 121 36j; 

fr-imti*/.-.-. »; 



THEN "W" ELSE 



AC43:»STACKCI+t3> 

nsi + i; 



SQUISH(A); 
WRlTE(TWX#5*AC*3)i 



end; 
End; 



PROCEDURE AODJ 

BEGIN 
LABEL D; 



^ritectwxcstop3*mrouj; 

AODERCFALSE); 

write(Twx[STqp3^rwu); 



aoder(true); 
end; 

IF START THEN 
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00032800 
00032900 
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00033500 
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00033700 
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-00040100 



0QU<*0200 
000^0210 
Q Q04Q 220 



00040230. 

00040240 
00040250 



00040300 
0OUi4O40O 
00040410 



00040420 
00040500 
Q004Q60Q 



0004070C 
00040800 
QQO^IZQO 



00041300 
00041400 
0004H00 



00041600 
00041610 
00041700 



00041800 
00041900 
Q041 91Q 



00042000 
00042100 
OQObOUOQ 
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00050200 
00050300 



00050400 
000b0500 
00030600 



00050700 
00050800 

001000 0Q 
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BEGIN NErtJ ADD EMJ ELSE OLD; 
ANUTHER* 



arireaoem; 

eetch(x#x#b); 
ti«bcoij — 



00100010 
001C010Q 
QQ1U0?QQ 



IE ...T.»".A.QD 

BEGIN ADD; 
IF T*"SAVE 



GQ 



THEN 

TO ANUTHER 
-IM&& 



0010U300 
00100310 

nointuoo 



end; 



BEGIN SAVER; GO TD ANOTHER END; 
IF T«*UST M THEN 
BEGIN llSTFRi fip TO ANUTHER F NDf 



00100500 
001U0600 
0010U7Q0 



IF T*" DELETE " THEN 

BEGIN DELETE; GQ TO 
IF Ts"QLO " THEN 



00100800 
00100900 

nniomnn 



ANOTHER END; 



BEGIN OLD; 
IF T»"NEH 
BEflTN MEW; 



GO 



end; 



IF Ts"QUlT "THEN 

go to quit; 

HRITEf THXtQHHAn '> 



TO ANOTHER 
THEN 
ADO; GO TQ ANOTHER 



ooionoo 

00101200 
UU3Q Q 



tUO, 



OOIOHOO 

00101500 
■0,0 ; 1 01 600 



GQ TO ar; 
QUIT* 
HRlTECTHXfQTh)! 



00101700 
00101800 
QO 10X900 



END. 
END; END. 
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